##  [1] "ESTU_DEPTO_RESIDE"             "FAMI_ESTRATOVIVIENDA"         
##  [3] "FAMI_PERSONASHOGAR"            "FAMI_EDUCACIONPADRE"          
##  [5] "FAMI_EDUCACIONMADRE"           "FAMI_TIENEINTERNET"           
##  [7] "FAMI_TIENECOMPUTADOR"          "FAMI_COMELECHEDERIVADOS"      
##  [9] "FAMI_COMECARNEPESCADOHUEVO"    "FAMI_COMECEREALFRUTOSLEGUMBRE"
## [11] "ESTU_DEDICACIONINTERNET"       "COLE_GENERO"                  
## [13] "COLE_NATURALEZA"               "COLE_CALENDARIO"              
## [15] "COLE_CARACTER"                 "COLE_JORNADA"                 
## [17] "PUNT_LECTURA_CRITICA"          "PUNT_MATEMATICAS"             
## [19] "PUNT_C_NATURALES"              "PUNT_SOCIALES_CIUDADANAS"     
## [21] "PUNT_INGLES"                   "PUNT_GLOBAL"                  
## [23] "ESTU_FECHANACIMIENTO"          "ESTU_GENERO"                  
## [25] "ESTU_GENERACION-E"
BOGOTA_IMA1 <- ggplot(new_df) +
  aes(x=FAMI_ESTRATOVIVIENDA, fill=ESTU_GENERO) +
  geom_bar( color = 'black') +
  labs(y="cantidad",x="Estrato",title="Estrato / Genero") +
  theme(axis.text.y = element_blank(), axis.ticks = element_blank() ) 

ggplotly(BOGOTA_IMA1)
BOGOTA_IMA1 <- ggplot(new_df) +
  aes(x=ESTU_GENERO, fill=FAMI_ESTRATOVIVIENDA) +
  geom_bar( color = 'black') +
  labs(y="cantidad",x="Estrato",title="Estrato / Genero") +
  theme(axis.text.y = element_blank(), axis.ticks = element_blank() ) 

ggplotly(BOGOTA_IMA1)
BOGOTA_IMA1 <- ggplot(temp) +
  aes(Estrato, frec_porcent) +
  geom_bar(stat = "identity", fill = c("white", "green", "white","white", "green", "white"),
           color = "grey") + 
  labs(x = "\nEstudiantes por estrato", y = "", title = "Presencia de estudiantes") + 
  annotate("text", x = 1:6, y = table_frec$frec_porcent + 0.9, label = paste(temp$frec_porcent,"%"))+
  theme(axis.text.y = element_blank(), axis.ticks = element_blank())

ggplotly(BOGOTA_IMA1)
BOGOTA_IMA2 <- ggplot(new_df2) +
  aes(x=FAMI_ESTRATOVIVIENDA, fill=COLE_GENERO) +
  geom_bar( color = 'black') +
  labs(y="cantidad",x="Estrato",title="Estrato / Tipo de colegio") +
  theme(axis.text.y = element_blank(), axis.ticks = element_blank() ) 

ggplotly(BOGOTA_IMA2)
BOGOTA_IMA2 <- ggplot(new_df2) +
  aes(x=COLE_GENERO, fill=FAMI_ESTRATOVIVIENDA) +
  geom_bar( color = 'black') +
  labs(y="cantidad",x="Estrato",title="Estrato / Tipo de colegio") +
  theme(axis.text.y = element_blank(), axis.ticks = element_blank() ) 

ggplotly(BOGOTA_IMA2)
BOGOTA_IMA2 <- ggplot(temp) +
  aes(Tipo_Cole, frec_porcent) +
  geom_bar(stat = "identity", fill = c("blue", "green", "white"),
           color = "grey") + 
  labs(x = "\nEstudiantes por Tipo de colegio", y = "", title = "Porcentaje de estudiantes Tipo de colegio") + 
  annotate("text", x = 1:3, y = table_frec$frec_porcent + 0.9, label = paste(temp$frec_porcent,"%"))+
  theme(axis.text.y = element_blank(), axis.ticks = element_blank())

ggplotly(BOGOTA_IMA2)